'--------------------------------------------------------------
'                     (c) 2000-2002 ETT
'--------------------------------------------------------------
'  file: PWM1_2.BAS
'--------------------------------------------------------------
$crystal = 8000000                                          ' frequency = 8 MHz
Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down , Prescale = 1024
Pwm1a = 100                                                 'output compare register 1A
Pwm1b = 200                                                 'output compare register 1B
End                                                         'end program